home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs55.d81 / mathkeys.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  37KB  |  1,308 lines
  1. 1 POKE53280,2:POKE53281,2
  2. 3 REM ***LAST REVISION DECEMBER 5, 1987**
  3. 7 PRINT"[147]"
  4. 10 REM THE INTRODUCTORY MENU IS UP TO
  5. 20 REM TO LINE 100
  6. 23 PRINT"[147]       MATH ON KEYS[146]"
  7. 24 PRINT" 1) BASIC MATH"
  8. 25 PRINT" 2) CONVERSIONS"
  9. 26 PRINT" 3) HOME MANAGEMENT"
  10. 27 PRINT" 4) ALGEBRA"
  11. 28 PRINT" 5) BUSINESS AND FINANCE"
  12. 29 PRINT" 6) PHYSICS AND CHEMISTRY"
  13. 37 PRINT"BY JAMES A. GAYOSO[146]"
  14. 40 PRINT"   SELECT A NUMBER OR X TO EXIT"
  15. 41 GETX$:IF X$=""THEN41
  16. 42 IF X$="1"GOTO100
  17. 44 IF X$="2"GOTO525
  18. 45 IF X$="3"GOTO1515
  19. 46 IF X$="4"GOTO1700
  20. 47 IF X$="5"GOTO1800
  21. 48 IF X$="6"GOTO3000
  22. 49 IF X$="X"THENNEW
  23. 50 GOTO23
  24. 100 POKE53280,9:POKE53281,9
  25. 101 REM SQUARE ROOT 1-18
  26. 102 REM RAISE TO A POWER
  27. 103 REM ROOT OF OTHERS 1-20
  28. 104 REM CONSTANTS (+-*/)1-22
  29. 105 REM PERCENTAGE      1-24
  30. 106 REM TRIG 1-26 TO 1-29
  31. 107 PRINT"[147]       BASIC MATH[146]"
  32. 108 REM LOGS 1-31
  33. 110 PRINT" 1) SQUARE A NUMBER"
  34. 111 PRINT" 2) SQUARE ROOT OF A NUMBER"
  35. 112 PRINT" 3) RAISE TO A POWER"
  36. 113 PRINT" 4) OTHER ROOTS"
  37. 114 PRINT" 5) USING CONSTANTS"
  38. 115 PRINT" 6) PERCENTAGES"
  39. 116 PRINT" 7) DEGREES/RADIANS/GRADS"
  40. 117 PRINT" 8) INVERSE OF A NUMBER"
  41. 118 PRINT" 9) LOGARITHMS AND ANTI-LOGS"
  42. 120 PRINT"   SELECT A NUMBER OR X TO EXIT"
  43. 121 GETX$:IF X$=""THEN121
  44. 122 IF X$="1"GOTO150
  45. 124 IF X$="2"GOTO180
  46. 125 IF X$="3"GOTO200
  47. 127 IF X$="4"GOTO220
  48. 129 IF X$="5"GOTO240
  49. 130 IF X$="6"GOTO310
  50. 131 IF X$="7"GOTO370
  51. 133 IF X$="8"GOTO450
  52. 136 IF X$="9"GOTO460
  53. 140 IF X$="Q"THEN NEW
  54. 144 GOTO23
  55. 150 PRINT"[147]       SQUARE[146]"
  56. 151 PRINT"ENTER THE NUMBER AND PRESS RETURN"
  57. 153 N=0:A=0
  58. 155 INPUT"NUMBER TO BE SQUARED IS";N
  59. 157 A=N^2
  60. 160 PRINTN;"SQUARED IS";A
  61. 161 GOSUB9988
  62. 169 IF X$="C"GOTO150
  63. 177 GOTO1
  64. 180 PRINT"[147]       SQUARE ROOT[146]"
  65. 181 PRINT"ENTER THE NUMBER AND PRESS RETURN"
  66. 182 N=0:A=0
  67. 188 INPUT"SQUARE ROOT OF NUMBER";N
  68. 189 A=N^(1/2)
  69. 190 PRINT"SQUARE ROOT OF";N;"IS";A
  70. 191 GOSUB9988
  71. 198 IF X$="C"GOTO180
  72. 199 GOTO1
  73. 200 PRINT"[147]  RAISE TO A POWER[146]"
  74. 202 PRINT"ENTER THE NUMBER AND PRESS RETURN"
  75. 204 N=0:A=0:E=0
  76. 205 INPUT"NUMBER TO BE RAISED IS";N
  77. 206 INPUT"RAISED TO THE POWER OF";E
  78. 208 A=N^E
  79. 210 PRINTN;"RAISED TO THE POWER OF";E
  80. 212 PRINT"IS";A
  81. 214 GOSUB9988
  82. 216 IF X$="C"GOTO200
  83. 219 GOTO1
  84. 220 PRINT"[147]       ROOT CACULATION[146]"
  85. 222 PRINT"ENTER THE NUMBERS AND PRESS RETURN"
  86. 223 N=0:A=0:E=0
  87. 224 INPUT"ROOT OF WHICH NUMBER";N
  88. 225 INPUT"TO THE POWER OF";E
  89. 227 A=N^(1/E)
  90. 230 PRINTN;"TO THE ROOT OF";E;"IS";A
  91. 232 GOSUB9988
  92. 233 IF X$="C"GOTO220
  93. 239 GOTO1
  94. 240 PRINT"[147]       USING A CONSTANT[146]"
  95. 242 PRINT""
  96. 250 PRINT" 1) ADDITION WITH A CONSTANT"
  97. 251 PRINT" 2) MULTIPLYING WITH A CONSTANT"
  98. 252 PRINT" 3) DIVIDING WITH A CONSTANT"
  99. 254 PRINT" 4) SUBTRACTING WITH A CONSTANT"
  100. 255 PRINT"ENTER THE NUMBER OF CHOICE OR[145][145][145]"
  101. 257 GOSUB9988
  102. 260 INPUT"ENTER THE CONSTANT";K
  103. 262 IFX$="1"GOTO270
  104. 266 IFX$="2"GOTO280
  105. 267 IFX$="3"GOTO290
  106. 268 IFX$="4"GOTO300
  107. 269 GOTO240
  108. 270 INPUT"ENTER A NUMBER";N:A=K+N
  109. 271 PRINT"THE SUM IS";A
  110. 272 GOSUB9988
  111. 275 IF X$="C"GOTO270
  112. 277 GOTO240
  113. 280 INPUT"ENTER A NUMBER";N:A=K*N
  114. 281 PRINT"THE PRODUCT IS";A
  115. 282 GOSUB9988
  116. 287 IF X$="C"GOTO280
  117. 288 GOTO240
  118. 290 INPUT"ENTER A NUMBER";N:A=N/K
  119. 291 PRINT"THE ANSWER IS";A
  120. 292 GOSUB9988
  121. 296 IF X$="C"GOTO290
  122. 299 GOTO240
  123. 300 INPUT"ENTER A NUMBER";N:A=N-K
  124. 302 PRINT"THE ANSWER IS";A
  125. 303 GOSUB9988
  126. 306 IF X$="C"GOTO300
  127. 309 GOTO240
  128. 310 PRINT"[147]       PERCENTAGES[146]"
  129. 311 PRINT""
  130. 312 PRINT" 1) ADDING A PERCENTAGE"
  131. 313 PRINT" 2) STRAIGHT PERCENTAGE"
  132. 314 PRINT" 3) INVERTED PERCENTAGE"
  133. 315 PRINT" 4) SUBTRACTING A PERCENTAGE"
  134. 316 PRINT" H) PERCENTAGE HELP"
  135. 317 PRINT"ENTER THE NUMBER OF CHOICE OR[145][145][145]"
  136. 318 GOSUB9988
  137. 319 IFX$="H"GOTO8000
  138. 320 INPUT"ENTER THE PERCENTAGE";K
  139. 321 K=K/100
  140. 322 IFX$="1"GOTO330
  141. 323 IFX$="2"GOTO340
  142. 324 IFX$="3"GOTO350
  143. 326 IFX$="4"GOTO360
  144. 327 GOTO310
  145. 330 INPUT"ENTER A NUMBER";N:A=N+(N*K)
  146. 333 PRINT"THE SUM IS";A
  147. 336 GOSUB9988
  148. 337 IF X$="C"GOTO330
  149. 339 GOTO310
  150. 340 INPUT"ENTER A NUMBER";N:A=N*K
  151. 343 PRINT"THE PERCENTAGE IS";A
  152. 344 GOSUB9988
  153. 346 IF X$="C"GOTO340
  154. 349 GOTO310
  155. 350 INPUT"ENTER A NUMBER";N:A=N/(K)
  156. 351 PRINT"THE ANSWER IS";A
  157. 352 GOSUB9988
  158. 353 IF X$="C"GOTO350
  159. 355 GOTO310
  160. 360 INPUT"ENTER A NUMBER";N:A=N-(N*K)
  161. 363 PRINT"THE DIFFERENCE IS";A
  162. 366 GOSUB9988
  163. 367 IF X$="C"GOTO360
  164. 369 GOTO310
  165. 370 PRINT"[147]       PERCENTAGES[146]"
  166. 371 PRINT""
  167. 372 PRINT" 1) CONVERT DEGREES TO RADIANS"
  168. 373 PRINT" 2) CONVERT DEGREES TO GRADS"
  169. 374 PRINT" 3) CONVERT RADIANS TO DEGREES"
  170. 375 PRINT" 4) CONVERT RADIANS TO GRADS"
  171. 376 PRINT" 5) CONVERT GRADS TO DEGREES"
  172. 377 PRINT" 6) CONVERT GRADS TO RADIANS"
  173. 378 PRINT"ENTER THE NUMBER OF CHOICE OR[145][145][145]"
  174. 379 GOSUB9988
  175. 381 IFX$="1"GOTO390
  176. 382 IFX$="2"GOTO400
  177. 383 IFX$="3"GOTO410
  178. 384 IFX$="4"GOTO420
  179. 386 IFX$="5"GOTO430
  180. 388 IFX$="6"GOTO440
  181. 389 GOTO370
  182. 390 INPUT"ENTER DEGREES";N:A=(N*2*(null))/360
  183. 393 PRINT"RADIAN EQUIVALENT IS";A
  184. 396 GOSUB9988
  185. 398 IF X$="C"GOTO390
  186. 399 GOTO370
  187. 400 INPUT"ENTER DEGREES";N:A=(N*10)/9
  188. 404 PRINT"GRAD EQUIVALENT IS";A
  189. 407 GOSUB9988
  190. 408 IF X$="C"GOTO400
  191. 409 GOTO370
  192. 410 INPUT"ENTER RADIANS";N:A=(N*180)/(null)
  193. 411 PRINT"DEGREE EQUIVALENT IS";A
  194. 414 GOSUB9988
  195. 417 IF X$="C"GOTO410
  196. 418 GOTO370
  197. 420 INPUT"ENTER RADIANS";N:A=(N*200)/(null)
  198. 421 PRINT"GRAD EQUIVALENT IS";A
  199. 422 GOSUB9988
  200. 424 IF X$="C"GOTO420
  201. 428 GOTO370
  202. 430 INPUT"ENTER GRADS";N:A=(N*9)/10
  203. 433 PRINT"DEGREE EQUIVALENT IS";A
  204. 434 GOSUB9988
  205. 436 IF X$="C"GOTO430
  206. 439 GOTO370
  207. 440 INPUT"ENTER GRADS";N:A=(N*(null))/200
  208. 441 PRINT"RADIAN EQUIVALENT IS";A
  209. 444 GOSUB9988
  210. 446 IF X$="C"GOTO440
  211. 448 GOTO370
  212. 450 PRINT"[147]       INVERSION[146]"
  213. 451 PRINT""
  214. 452 INPUT"ENTER A NUMBER";N:A=1/N
  215. 453 PRINT"THE INVERSE IS";A
  216. 454 PRINT"ENTER THE NUMBER OF CHOICE OR[145][145][145]"
  217. 455 GOSUB9988
  218. 457 GOTO450
  219. 460 PRINT"[147]       LOGARITHMS[146]"
  220. 461 PRINT""
  221. 463 PRINT" 1) COMMON LOGARITHM"
  222. 464 PRINT" 2) ANTI-LOGARITHM (BASE 10)"
  223. 465 PRINT" 3) NATURAL LOGARITHM"
  224. 466 PRINT" 4) EXPONENTIAL BASE 2.71827"
  225. 467 PRINT"ENTER THE NUMBER OF CHOICE OR[145][145][145]"
  226. 468 GOSUB9988
  227. 469 IFX$="1"GOTO480
  228. 474 IFX$="2"GOTO490
  229. 477 IFX$="3"GOTO500
  230. 478 IFX$="4"GOTO510
  231. 479 GOTO460
  232. 480 INPUT"ENTER A NUMBER";N:A=LOG(N):A=A/2.30258509
  233. 484 PRINT"THE COMMON LOGARITHM IS";A
  234. 486 GOSUB9988
  235. 487 IF X$="C"GOTO480
  236. 488 GOTO460
  237. 490 INPUT"ENTER THE COMMON LOG OF A NUMBER";N:A=10^N
  238. 494 PRINT"THE ANTI-LOGARITHM IS";A
  239. 496 GOSUB9988
  240. 497 IF X$="C"GOTO490
  241. 499 GOTO460
  242. 500 INPUT"ENTER A NUMBER";N:A=LOG(N)
  243. 505 PRINT"THE NATURAL LOGARITHM IS";A
  244. 507 GOSUB9988
  245. 508 IF X$="C"GOTO500
  246. 509 GOTO460
  247. 510 INPUT"ENTER THE NATURAL LOG OF A NUMBER";N:A=EXP(N)
  248. 511 PRINT"THE ANTI-LOGARITHM IS";A
  249. 515 GOSUB9988
  250. 517 IF X$="C"GOTO510
  251. 519 GOTO460
  252. 525 REM ** CONVERSION CENTER START ****
  253. 527 PRINT"[147]       CONVERSIONS[146]"
  254. 530 PRINT" 1) LENGTH"
  255. 531 PRINT" 2) AREA"
  256. 532 PRINT" 3) VOLUME"
  257. 533 PRINT" 4) WEIGHT"
  258. 534 PRINT" 5) POWER"
  259. 535 PRINT" 6) ENERGY"
  260. 536 PRINT" 7) ANGULAR MEASURE"
  261. 537 PRINT" 8) VELOCITY"
  262. 540 PRINT"   SELECT A NUMBER OR X TO EXIT"
  263. 541 GETX$:IF X$=""THEN541
  264. 542 IF X$="1"GOTO560
  265. 544 IF X$="2"GOTO660
  266. 545 IF X$="3"GOTO760
  267. 547 IF X$="4"GOTO900
  268. 549 IF X$="5"GOTO1010
  269. 550 IF X$="6"GOTO1080
  270. 551 IF X$="7"GOTO1210
  271. 553 IF X$="8"GOTO1280
  272. 555 IF X$="Q"THEN NEW
  273. 557 IF X$="X"GOTO1
  274. 559 GOTO541
  275. 560 PRINT"[147] 1) CENTIMETERS"
  276. 561 PRINT" 2) FEET"
  277. 562 PRINT" 3) INCHES"
  278. 563 PRINT" 4) KILOMETERS"
  279. 564 PRINT" 5) METERS"
  280. 565 PRINT" 6) MILES"
  281. 566 PRINT" 7) YARDS"
  282. 568 PRINT" 8) MILLIMETERS"
  283. 569 PRINT" 9) FATHOMS"
  284. 570 PRINT"   SELECT A NUMBER ":GOSUB9988
  285. 571 IF X$="8"GOTO650
  286. 572 IF X$="1"GOTO581
  287. 573 IF X$="2"GOTO590
  288. 574 IF X$="3"GOTO600
  289. 575 IF X$="4"GOTO610
  290. 576 IF X$="5"GOTO620
  291. 577 IF X$="6"GOTO630
  292. 578 IF X$="7"GOTO640
  293. 579 IF X$="9"GOTO655
  294. 580 GOTO23
  295. 581 INPUT "HOW MANY CENTIMETERS";N
  296. 582 PRINTN*.01;"METERS"
  297. 585 PRINTN*.3937;"INCHES"
  298. 586 PRINTN*10;"MILLIMETERS"
  299. 587 PRINTN*12*.3937;"FEET"
  300. 588 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO581
  301. 589 GOTO525
  302. 590 INPUT "HOW MANY FEET";N
  303. 591 PRINTN*.3048;"METERS"
  304. 593 PRINTN*304.8;"MILLIMETERS"
  305. 595 PRINTN*12;"INCHES"
  306. 596 PRINTN*.3333;"YARDS"
  307. 597 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO590
  308. 599 GOTO525
  309. 600 INPUT "HOW MANY INCHES";N
  310. 601 PRINTN*.0254;"METERS"
  311. 602 PRINTN/12;"FEET"
  312. 603 PRINTN*254;"MILLIMETERS"
  313. 606 PRINTN/36;"YARDS"
  314. 607 PRINTN*2.54;"CENTIMETERS"
  315. 608 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO600
  316. 609 GOTO525
  317. 610 INPUT "HOW MANY KILOMETERS";N
  318. 611 PRINTN*1000;"METERS"
  319. 612 PRINTN*3281;"FEET"
  320. 613 PRINTN*.6214;"MILES"
  321. 616 PRINTN*1094;"YARDS"
  322. 618 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO610
  323. 619 GOTO525
  324. 620 INPUT "HOW MANY METERS";N
  325. 621 PRINTN*.001;"KILOMETERS"
  326. 622 PRINTN*3.281;"FEET"
  327. 623 PRINTN*39.37;"INCHES"
  328. 626 PRINTN*1.094;"YARDS"
  329. 628 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO620
  330. 629 GOTO525
  331. 630 INPUT "HOW MANY MILES";N
  332. 631 PRINTN*1.609;"KILOMETERS"
  333. 632 PRINTN*5280;"FEET"
  334. 633 PRINTN*5280*12;"INCHES"
  335. 636 PRINTN*1760;"YARDS"
  336. 637 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO630
  337. 639 GOTO525
  338. 640 INPUT "HOW MANY YARDS";N
  339. 641 PRINTN*.9144;"METERS"
  340. 642 PRINTN*3;"FEET"
  341. 643 PRINTN*36;"INCHES"
  342. 644 PRINTN*91.44;"CENTIMETERS"
  343. 648 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO640
  344. 649 GOTO525
  345. 650 INPUT "HOW MANY MILLIMETERS";N:PRINTN*.1;"CENTIMETERS"
  346. 651 PRINTN*.0394;"INCHES"
  347. 652 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO650
  348. 654 GOTO525
  349. 655 INPUT "HOW MANY FATHOMS";N
  350. 656 PRINTN*6;"FEET"
  351. 657 PRINTN*2;"YARDS"
  352. 658 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO655
  353. 659 GOTO525
  354. 660 PRINT"[147] 1) ACRES"
  355. 661 PRINT" 2) HECTARES"
  356. 662 PRINT" 3) SQUARE CENTIMETERS"
  357. 663 PRINT" 4) SQUARE FEET"
  358. 664 PRINT" 5) SQUARE INCHES"
  359. 665 PRINT" 6) SQUARE KILOMETERS"
  360. 667 PRINT" 7) SQUARE METERS"
  361. 668 PRINT" 8) SQUARE MILES"
  362. 669 PRINT" 9) SQUARE MILLIMETERS"
  363. 670 PRINT" 0) SQUARE YARDS"
  364. 671 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="0"GOTO750
  365. 672 IF X$="1"GOTO682
  366. 673 IF X$="2"GOTO690
  367. 674 IF X$="3"GOTO696
  368. 675 IF X$="4"GOTO707
  369. 676 IF X$="5"GOTO715
  370. 677 IF X$="6"GOTO721
  371. 678 IF X$="7"GOTO730
  372. 679 IF X$="8"GOTO737
  373. 680 IF X$="9"GOTO744
  374. 681 GOTO660
  375. 682 INPUT "HOW MANY ACRES";N
  376. 683 PRINTN*4047;"SQUARE METERS":PRINTN*4840;"SQUARE YARDS"
  377. 684 PRINTN*43560*12;"SQUARE INCHES"
  378. 685 PRINTN/2.471;"HECTARES"
  379. 686 PRINTN*.0016;"SQUARE MILES"
  380. 687 PRINTN*43560;"SQUARE FEET"
  381. 688 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO680
  382. 689 GOTO660
  383. 690 INPUT "HOW MANY HECTARES";N
  384. 691 PRINTN*2.471;"ACRES"
  385. 692 PRINTN*4047*2.471;"SQUARE METERS"
  386. 693 PRINTN*.0016*2.471;"SQUARE MILES"
  387. 694 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO690
  388. 695 GOTO660
  389. 696 INPUT "HOW MANY SQUARE CENTIMETERS";N
  390. 697 PRINTN*.0011;"SQUARE FEET"
  391. 698 PRINTN*.0001;"SQUARE METERS"
  392. 699 PRINTN*100;"SQUARE MILLIMETERS"
  393. 700 PRINTN*.1550;"SQUARE INCHES"
  394. 701 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO696
  395. 702 GOTO660
  396. 707 INPUT "HOW MANY SQUARE FEET";N
  397. 708 PRINTN*2.2957*10^-5;"ACRES"
  398. 709 PRINTN*.0929;"SQUARE METERS"
  399. 710 PRINTN*144;"SQUARE INCHES"
  400. 711 PRINTN*.1111;"SQUARE YARDS"
  401. 712 PRINTN*3.587*10^-8;"SQUARE MILES"
  402. 713 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO707
  403. 714 GOTO660
  404. 715 INPUT "HOW MANY SQUARE INCHES";N
  405. 716 PRINTN*.0069;"SQUARE FEET"
  406. 717 PRINTN*.1111*.0069;"SQUARE YARDS"
  407. 718 PRINTN*6.452;"SQUARE CENTIMETERS"
  408. 719 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO715
  409. 720 GOTO660
  410. 721 INPUT "HOW MANY SQUARE KILOMETERS";N
  411. 722 PRINTN*1.0764*10^7;"SQUARE FEET"
  412. 723 PRINTN*1.1960*10^6;"SQUARE YARDS"
  413. 724 PRINTN*.3861;"SQUARE MILES"
  414. 725 PRINTN*247.1;"ACRES"
  415. 726 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO721
  416. 727 GOTO660
  417. 730 INPUT "HOW MANY SQUARE METERS";N
  418. 731 PRINTN*10.764;"SQUARE FEET"
  419. 733 PRINTN*1.1960;"SQUARE YARDS"
  420. 734 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO730
  421. 735 GOTO660
  422. 737 INPUT "HOW MANY SQUARE MILES";N
  423. 738 PRINTN*640;"ACRES"
  424. 739 PRINTN*3.0976*10^7;"SQUARE YARDS"
  425. 740 PRINTN*.8361;"SQUARE METERS"
  426. 741 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO737
  427. 743 GOTO660
  428. 744 INPUT "HOW MANY SQUARE MILLIMETERS";N
  429. 745 PRINTN*.01;"SQUARE CENTIMETERS"
  430. 746 PRINTN*.0016;"SQUARE INCHES"
  431. 748 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO744
  432. 749 GOTO660
  433. 750 INPUT "HOW MANY SQUARE YARDS";N
  434. 751 PRINTN*9;"SQUARE FEET"
  435. 752 PRINTN*3.2283*10^-7;"SQUARE MILES"
  436. 753 PRINTN*.8361;"SQUARE METERS"
  437. 754 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO750
  438. 755 GOTO660
  439. 760 PRINT"[147] 1) ACRE FEET/BOARD FEET"
  440. 761 PRINT" 2) CUBIC CENTIMETERS"
  441. 762 PRINT" 3) CUBIC FEET"
  442. 763 PRINT" 4) CUBIC INCHES"
  443. 764 PRINT" 5) CUBIC METERS"
  444. 765 PRINT" 6) CUBIC YARDS"
  445. 766 PRINT" 7) GALLONS"
  446. 767 PRINT" 8) LITERS"
  447. 768 PRINT" 9) OUNCES"
  448. 769 PRINT" 0) QUARTS":PRINT" +) PINTS"
  449. 770 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="0"GOTO890
  450. 771 IF X$="9"GOTO875
  451. 772 IF X$="1"GOTO781
  452. 773 IF X$="2"GOTO790
  453. 774 IF X$="3"GOTO802
  454. 775 IF X$="4"GOTO812
  455. 776 IF X$="5"GOTO825
  456. 777 IF X$="6"GOTO838
  457. 778 IF X$="7"GOTO850
  458. 779 IF X$="8"GOTO865
  459. 780 IF X$="+"GOTO882
  460. 781 PRINT"ENTER A FOR ACRE FT OR B FOR BOARD FT":X$=""
  461. 782 GETX$:IFX$=""GOTO782
  462. 783 IFX$="B"THENINPUT"HOW MANY BOARD FEET";N:PRINT"";N*144;"CUBIC INCHES":GOTO788
  463. 784 INPUT "HOW MANY ACRE FEET";N
  464. 785 PRINTN*43560;"CUBIC FEET"
  465. 786 PRINTN*1233.48;"CUBIC METERS"
  466. 788 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO781
  467. 789 GOTO760
  468. 790 INPUT "HOW MANY CUBIC CENTIMETERS";N:PRINT""
  469. 791 PRINTN*.0610;"CUBIC INCHES"
  470. 792 PRINTN*1.3079*10^-6;"CUBIC YARDS"
  471. 793 PRINTN*10^-6;"CUBIC METERS"
  472. 794 PRINTN*3.531*10^-5;"CUBIC FEET"
  473. 795 PRINTN*2.642*10^-4;"GALLONS"
  474. 796 PRINTN*.001;"LITERS"
  475. 797 PRINTN*.0021;"PINTS"
  476. 798 PRINTN*.0011;"QUARTS"
  477. 800 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO790
  478. 801 GOTO760
  479. 802 INPUT "HOW MANY CUBIC FEET";N:PRINT""
  480. 803 PRINTN*1728;"CUBIC INCHES"
  481. 804 PRINTN*.0283;"CUBIC METERS"
  482. 805 PRINTN*7.4805;"GALLONS"
  483. 806 PRINTN*28.32;"LITERS"
  484. 807 PRINTN*59.84;"PINTS"
  485. 808 PRINTN*29.92;"QUARTS"
  486. 810 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO802
  487. 811 GOTO760
  488. 812 INPUT "HOW MANY CUBIC INCHES";N:PRINT""
  489. 813 PRINTN*16.39;"CUBIC CENTIMETERS"
  490. 814 PRINTN*.0005787;"CUBIC FEET"
  491. 815 PRINTN*1.6387*10^-5;"CUBIC METERS"
  492. 816 PRINTN*2.1433*10^-5;"CUBIC YARDS"
  493. 817 PRINTN*.004329;"GALLONS"
  494. 818 PRINTN*.0164;"LITERS"
  495. 819 PRINTN*.0346;"PINTS"
  496. 820 PRINTN*.0173;"QUARTS"
  497. 822 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO812
  498. 823 GOTO760
  499. 825 INPUT "HOW MANY CUBIC METERS";N:PRINT""
  500. 826 PRINTN*10^-6;"CUBIC CENTIMETERS"
  501. 827 PRINTN*35.31;"CUBIC FEET"
  502. 828 PRINTN*61023;"CUBIC INCHES"
  503. 829 PRINTN*1.308;"CUBIC YARDS"
  504. 830 PRINTN*264.2;"GALLONS"
  505. 831 PRINTN*1000;"LITERS"
  506. 832 PRINTN*2113;"PINTS"
  507. 833 PRINTN*1057;"QUARTS"
  508. 836 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO825
  509. 837 GOTO760
  510. 838 INPUT "HOW MANY CUBIC YARDS";N:PRINT""
  511. 839 PRINTN*27;"CUBIC FEET"
  512. 840 PRINTN*46.656;"CUBIC INCHES"
  513. 841 PRINTN*.7645;"CUBIC METERS"
  514. 842 PRINTN*202;"GALLONS"
  515. 843 PRINTN*764.5;"LITERS"
  516. 844 PRINTN*1616;"PINTS"
  517. 845 PRINTN*807.9;"QUARTS"
  518. 848 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO838
  519. 849 GOTO760
  520. 850 INPUT "HOW MANY GALLONS";N:PRINT""
  521. 851 PRINTN*.1337;"CUBIC FEET"
  522. 852 PRINTN*231;"CUBIC INCHES"
  523. 853 PRINTN*3785;"CUBIC CENTIMETERS"
  524. 854 PRINTN*.0038;"CUBIC METERS"
  525. 855 PRINTN*3.785;"LITERS"
  526. 856 PRINTN*8;"PINTS"
  527. 857 PRINTN*4;"QUARTS"
  528. 858 PRINT"      PRESS ANY KEY[146]"
  529. 859 GETX$:IFX$=""THEN859
  530. 860 PRINT"[147]";N;"GALLONS OF WATER =";N*8.34;"LBS."
  531. 861 PRINTN;"U.S. GAL. =";N*.8327"IMPERIAL GAL."
  532. 862 PRINTN;"IMP. GAL. =";N*1.2009;"U.S. GAL."
  533. 863 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO850
  534. 864 GOTO760
  535. 865 INPUT "HOW MANY LITERS";N:PRINT""
  536. 866 PRINTN*.0353;"CUBIC FEET"
  537. 867 PRINTN*61.02;"CUBIC INCHES"
  538. 868 PRINTN*.001;"CUBIC METERS"
  539. 869 PRINTN*.2642;"GALLONS"
  540. 870 PRINTN*2.113;"PINTS"
  541. 871 PRINTN*1.057;"QUARTS"
  542. 873 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO865
  543. 874 GOTO760
  544. 875 INPUT "HOW MANY OUNCES";N:PRINT""
  545. 876 PRINTN*1.805;"CUBIC INCHES"
  546. 877 PRINTN*.0296;"LITERS"
  547. 878 PRINTN/16;"PINTS"
  548. 879 PRINTN/32;"QUARTS"
  549. 880 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO875
  550. 881 GOTO760
  551. 882 INPUT "HOW MANY PINTS";N:PRINT""
  552. 883 PRINTN*16;"OUNCES"
  553. 884 PRINTN/8;"GALLONS"
  554. 885 PRINTN/2;"QUARTS"
  555. 887 PRINTN*16*.0296;"LITERS"
  556. 888 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO882
  557. 889 GOTO760
  558. 890 INPUT "HOW MANY QUARTS";N:PRINT""
  559. 891 PRINTN*57.75;"CUBIC INCHES"
  560. 892 PRINTN*32;"OUNCES"
  561. 893 PRINTN*2;"PINTS"
  562. 894 PRINTN*32*.0296;"LITERS"
  563. 898 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO890
  564. 899 GOTO760
  565. 900 PRINT"[147] 1) DRAMS"
  566. 901 PRINT" 2) GRAMS"
  567. 902 PRINT" 3) KILOGRAMS"
  568. 903 PRINT" 4) OUNCES (AVOIR.)"
  569. 904 PRINT" 5) OUNCES (TROY)"
  570. 905 PRINT" 6) POUNDS"
  571. 906 PRINT" 7) METRIC TONS"
  572. 907 PRINT" 8) TONS (SHORT)"
  573. 909 PRINT" 9) TONS (LONG)"
  574. 910 PRINT"   SELECT A NUMBER OR X TO EXIT OR":GOSUB9988
  575. 911 IF X$="7"GOTO980
  576. 912 IF X$="1"GOTO920
  577. 913 IF X$="2"GOTO930
  578. 914 IF X$="3"GOTO940
  579. 915 IF X$="4"GOTO950
  580. 916 IF X$="5"GOTO960
  581. 917 IF X$="6"GOTO970
  582. 918 IF X$="9"GOTO1000
  583. 919 IF X$="8"GOTO990
  584. 920 INPUT "HOW MANY DRAMS";N:PRINT""
  585. 921 PRINTN*27.34;"GRAINS"
  586. 922 PRINTN*.0625;"OUNCES (AVOIR.)"
  587. 923 PRINTN*1.7718;"GRAMS"
  588. 924 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO920
  589. 929 GOTO900
  590. 930 INPUT "HOW MANY GRAMS";N:PRINT""
  591. 931 PRINTN*15.43;"GRAINS"
  592. 932 PRINTN*.0353;"OUNCES (AVOIR.)"
  593. 933 PRINTN*.0322;"OUNCES (TROY)"
  594. 934 PRINTN*.0022;"POUNDS"
  595. 935 PRINTN*980.7;"DYNES"
  596. 936 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO930
  597. 939 GOTO900
  598. 940 INPUT "HOW MANY KILOGRAMS";N:PRINT""
  599. 942 PRINTN*980665;"DYNES"
  600. 944 PRINTN*2.205;"POUNDS"
  601. 945 PRINTN*1000;"GRAMS"
  602. 948 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO940
  603. 949 GOTO900
  604. 950 INPUT "HOW MANY OUNCES";N
  605. 951 PRINTN*16;"DRAMS"
  606. 952 PRINTN*437.5;"GRAINS"
  607. 953 PRINTN*.0625;"POUNDS"
  608. 954 PRINTN/.0353;"GRAMS"
  609. 955 PRINTN*.9115;"OUNCES (TROY)"
  610. 957 PRINTN*2.8349*10^-5;"METRIC TONS"
  611. 958 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO950
  612. 959 GOTO900
  613. 960 INPUT "HOW MANY OUNCES (TROY)";N
  614. 961 PRINTN*1.0971;"OUNCES (AVOIR.)"
  615. 962 PRINTN*1.0971*437.5;"GRAINS"
  616. 963 PRINTN*1.0971*2.8349*10^-5;"METRIC TONS"
  617. 964 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO960
  618. 969 GOTO900
  619. 970 INPUT "HOW MANY POUNDS";N
  620. 971 PRINTN*16;"OUNCES (AVOIR.)"
  621. 973 PRINTN*256;"DRAMS"
  622. 974 PRINTN*7000;"GRAINS"
  623. 975 PRINTN*.0005;"TONS (SHORT)"
  624. 977 PRINTN*1.2153;"POUNDS (TROY)"
  625. 978 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO970
  626. 979 GOTO900
  627. 980 INPUT "HOW MANY METRIC TONS";N
  628. 981 PRINTN*1000;"KILOGRAMS"
  629. 982 PRINTN*2205;"POUNDS"
  630. 987 PRINTN/.9072;"TONS (SHORT)"
  631. 988 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO980
  632. 989 GOTO900
  633. 990 INPUT "HOW MANY TONS (SHORT)";N
  634. 991 PRINTN*.89286;"TONS (LONG)"
  635. 993 PRINTN*2000;"POUNDS"
  636. 997 PRINTN*.9072;"METRIC TONS"
  637. 998 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO980
  638. 999 GOTO900
  639. 1000 INPUT "HOW MANY TONS (LONG)";N
  640. 1001 PRINTN/.89286;"TONS (SHORT)"
  641. 1003 PRINTN/.89286*2000;"POUNDS"
  642. 1007 PRINTN/.89286*.9072;"METRIC TONS"
  643. 1008 PRINT"   SELECT A NUMBER OR X TO EXIT":GOSUB9988:IFX$="C"GOTO1000
  644. 1009 GOTO900
  645. 1010 PRINT"[147] 1) B.T.U. (BRITISH THERMAL UNITS)"
  646. 1011 PRINT" 2) FOOT-POUNDS"
  647. 1012 PRINT" 3) HORSEPOWER"
  648. 1013 PRINT" 4) KILOWATTS"
  649. 1014 PRINT" 5) WATTS"
  650. 1017 PRINT"   SELECT A NUMBER ":GOSUB9988
  651. 1020 IF X$="1"GOTO1030
  652. 1021 IF X$="2"GOTO1040
  653. 1022 IF X$="3"GOTO1050
  654. 1023 IF X$="4"GOTO1060
  655. 1027 IF X$="5"GOTO1070
  656. 1030 INPUT "HOW MANY B.T.U.";N
  657. 1031 PRINTN*3.927*10^-4;"HORSEPOWER-HOURS"
  658. 1033 PRINTN*777.6;"FOOT-POUNDS"
  659. 1037 PRINTN*2.928*10^-4;"KILOWATT-HOURS"
  660. 1038 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1030
  661. 1039 GOTO1010
  662. 1040 INPUT "HOW MANY FT-LBS";N
  663. 1042 PRINTN*5.0505*10^-7;"HORSEPOWER-HOURS"
  664. 1044 PRINTN*.0013;"B.T.U."
  665. 1045 PRINTN*3.766*10^-7;"KILOWATT-HOURS"
  666. 1048 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1040
  667. 1049 GOTO1010
  668. 1050 INPUT "HOW MANY HORSEPOWER";N
  669. 1051 PRINTN*42.44;"B.T.U./MINUTE"
  670. 1052 PRINTN*33000;"FT-LBS/MINUTE"
  671. 1053 PRINTN*550;"FT-LBS/SECOND"
  672. 1055 PRINTN*1.014;"METRIC HORSEPOWER"
  673. 1057 PRINTN*.7457;"KILOWATTS"
  674. 1058 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1050
  675. 1059 GOTO1010
  676. 1060 INPUT "HOW MANY KILOWATTS";N
  677. 1061 PRINTN*56.82;"B.T.U./MINUTE"
  678. 1062 PRINTN*1.341*1.014;"METRIC HORSEPOWER"
  679. 1063 PRINTN*1.341;"HORSEPOWER"
  680. 1064 PRINTN*737.6;"FT-LBS/SECOND"
  681. 1067 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO1060
  682. 1069 GOTO1010
  683. 1070 INPUT "HOW MANY WATTS";N
  684. 1071 PRINTN*.0586;"B.T.U.(MEAN)/MINUTE"
  685. 1072 PRINTN*.0013*1.014;"METRIC HORSEPOWER"
  686. 1073 PRINTN*.0013;"HORSEPOWER"
  687. 1075 PRINTN*.7377;"FT-LBS/SECOND"
  688. 1076 PRINTN*.001;"KILOWATTS"
  689. 1077 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1070
  690. 1079 GOTO1010
  691. 1080 PRINT"[147] 1) ATMOSPHERES"
  692. 1081 PRINT" 2) CENTIMETERS - MERCURY"
  693. 1082 PRINT" 3) INCHES - MERCURY"
  694. 1083 PRINT" 4) INCHES - WATER"
  695. 1084 PRINT" 5) POUNDS PER INCH"
  696. 1085 PRINT" 6) POUNDS PER SQUARE INCH"
  697. 1086 PRINT" 7) POUNDS PER FOOT"
  698. 1087 PRINT" 8) POUNDS PER SQUARE FOOT"
  699. 1088 PRINT" 9) POUNDS PER CUBIC INCH"
  700. 1089 PRINT" 0) GRAMS PER CUBIC CENTIMETER"
  701. 1090 PRINT" +) FEET - WATER (4[188]C)"
  702. 1091 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="+"GOTO1103
  703. 1092 IF X$="1"GOTO1110
  704. 1093 IF X$="2"GOTO1120
  705. 1094 IF X$="3"GOTO1130
  706. 1095 IF X$="4"GOTO1140
  707. 1096 IF X$="5"GOTO1150
  708. 1097 IF X$="6"GOTO1160
  709. 1098 IF X$="7"GOTO1170
  710. 1099 IF X$="8"GOTO1180
  711. 1100 IF X$="9"GOTO1190
  712. 1101 IF X$="0"GOTO1200
  713. 1103 INPUT "HOW MANY FEET OF WATER";N
  714. 1105 PRINTN*.8826;"INCHES - MERCURY"
  715. 1107 PRINTN*62.43;"POUNDS PER SQUARE FOOT"
  716. 1108 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO1103
  717. 1109 GOTO1080
  718. 1110 INPUT "HOW MANY ATMOSPHERES";N
  719. 1111 PRINTN*29.92;"INCHES OF MERCURY"
  720. 1112 PRINTN*14.70;"POUNDS PER SQUARE INCH"
  721. 1113 PRINTN*76;"CENTIMETERS OF MERCURY"
  722. 1115 PRINTN*1.058;"TONS PER SQUARE FOOT"
  723. 1117 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO1110
  724. 1119 GOTO1080
  725. 1120 INPUT "HOW MANY CENTIMETERS OF MERCURY";N
  726. 1121 PRINTN*.0132;"ATMOSPHERES"
  727. 1122 PRINTN*27.85;"POUNDS PER SQUARE FOOT"
  728. 1123 PRINTN*.446;"FEET OF WATER @ 4[188]C"
  729. 1124 PRINTN*136;"KILOGRAMS PER SQUARE METER"
  730. 1125 PRINTN*.1934;"POUNDS PER SQUARE INCH"
  731. 1127 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1120
  732. 1129 GOTO1080
  733. 1130 INPUT "HOW MANY INCHES OF MERCURY";N
  734. 1131 PRINTN*.033;"ATMOSPHERES"
  735. 1133 PRINTN*70.73;"POUNDS PER SQUARE FOOT"
  736. 1135 PRINTN*345.3;"KILOGRAMS PER SQUARE METER"
  737. 1137 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1130
  738. 1139 GOTO1080
  739. 1140 INPUT "HOW MANY INCHES OF WATER";N
  740. 1144 PRINTN*.0735;"INCHES OF MERCURY"
  741. 1148 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1140
  742. 1149 GOTO1080
  743. 1150 INPUT "HOW MANY POUNDS/INCH";N
  744. 1155 PRINTN*178.6;"GRAMS PER CENTIMETER"
  745. 1157 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1150
  746. 1159 GOTO1080
  747. 1160 INPUT "HOW MANY POUNDS/SQUARE INCH";N
  748. 1163 PRINTN*2.036;"INCHES OF MERCURY"
  749. 1166 PRINTN*.068;"ATMOSPHERES"
  750. 1167 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1160
  751. 1169 GOTO1080
  752. 1170 INPUT "HOW MANY POUNDS/FOOT";N
  753. 1177 PRINTN*1488;"KILOGRAMS PER METER"
  754. 1178 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1170
  755. 1179 GOTO1080
  756. 1180 INPUT "HOW MANY POUNDS/SQUARE FOOT";N
  757. 1187 PRINTN*4.882;"KILOGRAMS PER SQUARE METER"
  758. 1188 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1180
  759. 1189 GOTO1080
  760. 1190 INPUT "HOW MANY POUNDS/CUBIC INCH";N
  761. 1197 PRINTN*1728;"POUNDS PER CUBIC FOOT"
  762. 1198 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1190
  763. 1199 GOTO1080
  764. 1200 INPUT "HOW MANY GRAMS/CUBIC CENTIMETER";N
  765. 1202 PRINTN*.0361;"POUNDS PER CUBIC INCH"
  766. 1208 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1200
  767. 1209 GOTO1080
  768. 1210 PRINT"[147] 1) DEGREES"
  769. 1211 PRINT" 2) MINUTES"
  770. 1212 PRINT" 3) SECONDS"
  771. 1213 PRINT" 4) RADIANS"
  772. 1214 PRINT" 5) QUADRANTS"
  773. 1218 PRINT"   SELECT A NUMBER ":GOSUB9988
  774. 1220 IF X$="1"GOTO1230
  775. 1221 IF X$="2"GOTO1240
  776. 1222 IF X$="3"GOTO1250
  777. 1223 IF X$="4"GOTO1260
  778. 1224 IF X$="5"GOTO1270
  779. 1225 GOTO1210
  780. 1230 INPUT "HOW MANY DEGREES";N
  781. 1232 PRINTN*60;"MINUTES"
  782. 1233 PRINTN*.0174;"RADIANS"
  783. 1236 PRINTN*3600;"SECONDS"
  784. 1238 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1230
  785. 1239 GOTO1210
  786. 1240 INPUT "HOW MANY MINUTES";N
  787. 1242 PRINTN*60;"SECONDS"
  788. 1244 PRINTN/60;"DEGREES"
  789. 1248 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1240
  790. 1249 GOTO1210
  791. 1250 INPUT "HOW MANY SECONDS";N
  792. 1251 PRINTN*4.8481*10^-6;"RADIANS"
  793. 1255 PRINTN/3600;"DEGREES"
  794. 1257 PRINTN/60;"MINUTES"
  795. 1258 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1250
  796. 1259 GOTO1210
  797. 1260 INPUT "HOW MANY RADIANS";N:PRINT""
  798. 1261 PRINTN*3438;"MINUTES"
  799. 1263 PRINTN*57.3;"DEGREES"
  800. 1266 PRINTN*.637;"QUADRANTS"
  801. 1267 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1260
  802. 1269 GOTO1210
  803. 1270 INPUT "HOW MANY QUADRANTS";N:PRINT""
  804. 1271 PRINTN*5400;"MINUTES"
  805. 1272 PRINTN*90;"DEGREES"
  806. 1275 PRINTN*1.571;"RADIANS"
  807. 1277 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1270
  808. 1279 GOTO1210
  809. 1280 PRINT"[147] 1) B.T.U. PER MINUTE"
  810. 1281 PRINT" 2) CENTIMETERS PER SECOND"
  811. 1282 PRINT" 3) CUBIC FEET PER MINUTE"
  812. 1283 PRINT" 4) CUBIC FEET PER SECOND"
  813. 1284 PRINT" 5) CUBIC YARDS PER MINUTE"
  814. 1285 PRINT" 6) DEGREES PER SECOND"
  815. 1286 PRINT" 7) FEET PER MINUTE"
  816. 1287 PRINT" 8) FEET PER SECOND"
  817. 1288 PRINT" 9) FOOT-POUNDS PER MINUTE"
  818. 1289 PRINT" 0) HORSEPOWER PER HOUR"
  819. 1290 PRINT" +) KILOMETERS PER HOUR"
  820. 1291 PRINT" -) KILOWATTS PER HOUR"
  821. 1292 PRINT" W) METERS PER MINUTE"
  822. 1293 PRINT" E) METERS PER SECOND"
  823. 1294 PRINT" R) MILES PER HOUR"
  824. 1295 PRINT" T) MILES PER MINUTE"
  825. 1296 PRINT" Y) RADIANS PER SECOND"
  826. 1297 PRINT" U) REVOLUTIONS PER SECOND"
  827. 1298 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="+"GOTO1420
  828. 1299 IF X$="1"GOTO1320
  829. 1300 IF X$="2"GOTO1330
  830. 1301 IF X$="3"GOTO1340
  831. 1302 IF X$="4"GOTO1350
  832. 1303 IF X$="5"GOTO1360
  833. 1304 IF X$="6"GOTO1370
  834. 1305 IF X$="7"GOTO1380
  835. 1306 IF X$="8"GOTO1390
  836. 1307 IF X$="9"GOTO1400
  837. 1308 IF X$="0"GOTO1410
  838. 1309 IF X$="-"GOTO1430
  839. 1310 IF X$="W"GOTO1440
  840. 1311 IF X$="E"GOTO1450
  841. 1312 IF X$="R"GOTO1460
  842. 1313 IF X$="T"GOTO1470
  843. 1314 IF X$="Y"GOTO1480
  844. 1315 IF X$="U"GOTO1490
  845. 1320 INPUT "HOW MANY B.T.U./MINUTE";N
  846. 1321 PRINTN*12.96;"FT-LBS/SEC."
  847. 1322 PRINTN*.0236;"HORSEPOWER"
  848. 1323 PRINTN*17.57;"WATTS"
  849. 1327 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1320
  850. 1329 GOTO1280
  851. 1330 INPUT "HOW MANY CENTIMETERS/SECOND";N
  852. 1331 PRINTN*.0328;"FEET/SECOND"
  853. 1332 PRINTN*.036;"KILOMETERS/HOUR"
  854. 1333 PRINTN*.6;"METERS/MINUTE"
  855. 1335 PRINTN*.0224;"MILES PER HOUR"
  856. 1336 PRINTN*.0004;"MILES PER MINUTE"
  857. 1337 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1330
  858. 1339 GOTO1280
  859. 1340 INPUT "HOW MANY CUBIC FEET/MINUTE";N
  860. 1342 PRINTN*.1247;"GALLONS/SECOND"
  861. 1344 PRINTN*.4719;"LITERS/SECOND"
  862. 1348 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1340
  863. 1349 GOTO1280
  864. 1350 INPUT "HOW MANY CUBIC FEET/SECOND";N
  865. 1355 PRINTN*448.831;"GALLONS/SECOND"
  866. 1357 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1350
  867. 1359 GOTO1280
  868. 1360 INPUT "HOW MANY CUBIC YARDS/MINUTE";N
  869. 1361 PRINTN*3.367;"GALLONS/SECOND"
  870. 1363 PRINTN*12.47;"LITERS/SECOND"
  871. 1366 PRINTN*.45;"CUBIC FEET/SEC."
  872. 1367 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO1360
  873. 1369 GOTO1280
  874. 1370 INPUT "HOW MANY DEGREES/SECOND";N
  875. 1371 PRINTN*.166667;"REVOLUTIONS PER MINUTE"
  876. 1373 PRINTN*.0028;"REVOLUTIONS PER SECOND"
  877. 1377 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1370
  878. 1379 GOTO1280
  879. 1380 INPUT "HOW MANY FEET/MINUTE";N
  880. 1381 PRINTN*.508;"CENTIMETERS/SEC."
  881. 1382 PRINTN*.0183;"KILOMETERS PER HOUR"
  882. 1383 PRINTN*.0114;"MILES PER HOUR"
  883. 1384 PRINTN*.3048;"METERS/MINUTE"
  884. 1388 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1380
  885. 1389 GOTO1280
  886. 1390 INPUT "HOW MANY FEET/SECOND";N
  887. 1391 PRINTN*30.48;"CENTIMETERS/SEC."
  888. 1392 PRINTN*.6818;"MILES PER HOUR"
  889. 1393 PRINTN*1.097;"KILOMETERS PER HOUR"
  890. 1394 PRINTN*18.29;"METERS/MINUTE"
  891. 1395 PRINTN*.0114;"MILES/MINUTE"
  892. 1397 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1390
  893. 1399 GOTO1280
  894. 1400 INPUT "HOW MANY FT-LBS/MINUTE";N
  895. 1401 PRINTN*.0167;"FT-LBS/SEC."
  896. 1404 PRINTN*3.03*10^-5;"HORSEPOWER"
  897. 1407 PRINTN*2.2597*10^-5;"KILOWATTS"
  898. 1408 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1400
  899. 1409 GOTO1280
  900. 1410 INPUT "HOW MANY HORSEPOWER-HOURS";N:PRINT""
  901. 1411 PRINTN*.7457;"KILOWATTS/HOUR"
  902. 1414 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1410
  903. 1418 GOTO1280
  904. 1420 INPUT "HOW MANY KPH";N:PRINT""
  905. 1422 PRINTN*54.68;"FEET PER MINUTE"
  906. 1424 PRINTN*.5396;"KNOTS"
  907. 1425 PRINTN/1.609;"MILES PER HOUR"
  908. 1427 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1420
  909. 1428 GOTO1280
  910. 1430 INPUT "HOW MANY KILOWATT-HOURS";N:PRINT""
  911. 1431 PRINTN*1.341;"HORSEPOWER-HOURS"
  912. 1433 PRINTN*3410;"B.T.U."
  913. 1434 PRINTN*2.655*10^6;"FOOT-POUNDS"
  914. 1436 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1430
  915. 1438 GOTO1280
  916. 1440 INPUT "HOW MANY METERS/MINUTE";N
  917. 1441 PRINTN*3.281;"FEET/MINUTE"
  918. 1442 PRINTN*.0373;"MPH"
  919. 1444 PRINTN*.06;"KM/H"
  920. 1448 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1430
  921. 1449 GOTO1280
  922. 1450 INPUT "HOW MANY METERS/SECOND";N
  923. 1451 PRINTN*3.6;"KM/H"
  924. 1452 PRINTN*.03728;"MILES/MIN."
  925. 1454 PRINTN*3.281;"FT/SEC."
  926. 1455 PRINTN*196.8;"FT/MIN."
  927. 1457 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO1450
  928. 1459 GOTO1280
  929. 1460 INPUT "HOW MANY MPH";N
  930. 1461 PRINTN*88;"FT/MIN."
  931. 1462 PRINTN*1.467;"FT/SEC."
  932. 1463 PRINTN*.869;"KNOTS"
  933. 1464 PRINTN*1.609;"KM/H"
  934. 1466 PRINTN*26.82;"METERS/MIN."
  935. 1467 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1460
  936. 1469 GOTO1280
  937. 1470 INPUT "HOW MANY MILES/MIN.";N
  938. 1471 PRINTN*88;"FT/SEC."
  939. 1472 PRINTN*2682;"CM/SEC."
  940. 1474 PRINTN*1.609;"KM/MIN."
  941. 1475 PRINTN*60;"MPH"
  942. 1477 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1470
  943. 1479 GOTO1280
  944. 1480 INPUT "HOW MANY RADIANS/SEC.";N
  945. 1482 PRINTN*9.549;"RPM"
  946. 1488 PRINT"   SELECT A NUMBER ":GOSUB9988:IFX$="C"GOTO1480
  947. 1489 GOTO1280
  948. 1490 INPUT "HOW MANY REVOLUTIONS/SEC.";N
  949. 1491 PRINTN*1360;"DEGREES/SEC."
  950. 1494 PRINTN*6.283;"RADIANS/SEC."
  951. 1496 PRINTN*60;"RPM"
  952. 1498 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO1490
  953. 1499 GOTO1280
  954. 1500 INPUT "HOW MANY WATT-HOURS";N
  955. 1501 PRINTN*3.4144;"B.T.U."
  956. 1503 PRINTN*2655;"FT-LBS/SEC."
  957. 1505 PRINTN*.00134;"HORSEPOWER-HOURS"
  958. 1507 PRINTN*.001;"KILOWATT-HOURS"
  959. 1508 PRINT"   SELECT A NUMBER":GOSUB9988:IFX$="C"GOTO1500
  960. 1509 GOTO1280
  961. 1511 REM****START OF HOME MANAGEMENT***
  962. 1515 PRINT"[147]       HOME MANAGEMENT[146]"
  963. 1517 POKE53280,5:POKE53281,5:PRINT"[158]"
  964. 1520 PRINT" 1) DIET PLANNING"
  965. 1521 PRINT" 2) CREDIT CARD"
  966. 1522 PRINT" 3) COMPARATIVE SHOPPING"
  967. 1523 PRINT" 4) PAINT ESTIMATES"
  968. 1524 PRINT" 5) GAS MILEAGE"
  969. 1525 PRINT" 6) MORTGAGE PAYMENTS"
  970. 1527 PRINT"   SELECT A NUMBER "
  971. 1528 GETX$:IF X$=""THEN1528
  972. 1530 IF X$="1"GOTO1540
  973. 1531 IF X$="2"GOTO1600
  974. 1532 IF X$="3"GOTO1620
  975. 1533 IF X$="4"GOTO1630
  976. 1534 IF X$="5"GOTO1660
  977. 1535 IF X$="6"GOTO1690
  978. 1536 GOTO23
  979. 1540 PRINT"[147]    DIET PLANNING[146]"
  980. 1544 INPUT"HOW MUCH DO YOU WEIGH";N
  981. 1545 INPUT"HOW MUCH DO YOU WANT TO WEIGH";M
  982. 1550 INPUT"HOW LONG (IN WEEKS) DO YOU WANT TO DIET";W
  983. 1551 C=44*M/2.205
  984. 1555 PRINT"TO SUSTAIN YOURSELF, YOU WILL NEED"
  985. 1557 PRINTC;"CALORIES PER DAY"
  986. 1560 L=(N-M)/W:PRINT"YOU NEED TO LOOSE";L;"POUNDS PER WEEK!"
  987. 1565 A=(L/2.205)*9720:PRINT"THIS MEANS A LOSS OF ":PRINTA;"CALORIES PER WEEK"
  988. 1566 B=A/7:PRINT"THIS MEANS";B;"LESS CALORIES PER DAY"
  989. 1570 T=C-B:PRINT"ALLOW FOR";T;"CALORIES PER DAY"
  990. 1571 P=M/2.205:PRINT"ALLOW FOR";P;"GRAMS OF PROTEIN":PRINT"EACH DAY"
  991. 1575 PRINT"MAKE A MENU FOR THE DAY"
  992. 1577 INPUT"HOW MANY ITEMS";X:IFX<1GOTO1590
  993. 1578 TP=0:TC=0
  994. 1580 FORN=1TOX
  995. 1581 PRINT"ITEM";N
  996. 1585 INPUT"HOW MANY CALORIES";CA
  997. 1587 INPUT"HOW MANY GRAMS OF PROTEIN";PR
  998. 1588 TP=TP+PR:TC=TC+CA
  999. 1589 NEXTN
  1000. 1590 PRINT"TOTAL GRAMS OF PROTEIN =";TP:IFTP-P<0THENPRINT"NOT ENOUGH PROTEIN!"
  1001. 1595 PRINT"TOTAL CALORIES FOR THE DAY =";TC
  1002. 1597 PRINT"";(TB-TC)*.0501136364;"POUNDS TODAY":PRINT"   PRESS ANY KEY!"
  1003. 1598 GETX$:IFX$=""THEN1598
  1004. 1599 GOTO1515
  1005. 1600 PRINT"[147]    CREDIT CARD[146]"
  1006. 1601 INPUT"WHAT IS THE OPENING BALANCE";B
  1007. 1606 PRINT"HOW MUCH IS THE MONTHLY INTEREST RATE":INPUT"  ENTER %";M:M=M/100
  1008. 1610 I=M*B:U=B+I
  1009. 1611 PRINT"THE UNPAID BALANCE SHOULD BE";U
  1010. 1612 INPUT"HOW MUCH WILL YOU PAY THIS MONTH";P:
  1011. 1615 PRINT"NEXT MONTH'S BALANCE WILL BE";U-P:PRINT"       PRESS ANY KEY!"
  1012. 1616 GETX$:IFX$=""THEN1616
  1013. 1619 GOTO1515
  1014. 1620 PRINT"[147]    COMPARATIVE SHOPPING[146]"
  1015. 1621 INPUT"HOW MANY PRODUCTS TO COMPARE";X:W=99999999999:B=0
  1016. 1622 FORN=1TOX
  1017. 1623 PRINT"PRODUCT";N
  1018. 1624 INPUT"ENTER TOTAL PRICE";P
  1019. 1625 PRINT"ENTER # OF UNITS OF MEASURE":INPUT"   (GRAMS,OUNCES,ETC.)";U
  1020. 1626 PRINT"PRICE PER UNIT IS";P/U:L=P/U:IFL<WTHENW=L:B=N
  1021. 1627 NEXT
  1022. 1628 PRINT"PRODUCT";B;"IS THE BEST VALUE":PRINT"PRESS ANY KEY":GOSUB9988
  1023. 1629 GOTO1515
  1024. 1630 PRINT"[147]    PAINT ESTIMATES[146]"
  1025. 1631 INPUT"HOW MANY WALLS";W:T=0
  1026. 1633 INPUT"HOW MANY SQUARE FT. DOES EACH CAN COVER";P
  1027. 1636 FORX=1TOW
  1028. 1639 INPUT"ENTER WIDTH OF THE WALL IN FEET";N
  1029. 1640 INPUT"ENTER HEIGHT OF THE WALL IN FEET";M
  1030. 1641 A=(N*M)/P:T=T+A
  1031. 1644 PRINT"THIS WALL REQUIRES";A;"CANS OF PAINT"
  1032. 1646 NEXT
  1033. 1649 PRINT"   -------------------------------"
  1034. 1650 PRINT"A TOTAL OF";T;"CANS OF PAINT"
  1035. 1653 PRINT"REQUIRED FOR EACH COAT"
  1036. 1655 PRINT"   -------------------------------"
  1037. 1656 PRINT"PRESS ANY KEY":GOSUB9988
  1038. 1657 IFX$="C"THEN1630
  1039. 1658 GOTO1515
  1040. 1660 PRINT"[147]    GAS MILEAGE[146]"
  1041. 1661 INPUT"HOW MANY MILES DRIVEN";M
  1042. 1663 PRINT"ENTER THE NUMBER OF GALLONS OR"
  1043. 1667 INPUT"0 IF NOT KNOWN";N
  1044. 1670 IF N=0GOTO1677
  1045. 1676 GOTO1680
  1046. 1677 PRINT"WHAT WAS THE PRICE PER GALLON":INPUT"(DON'T FORGET DECIMAL POINT)";P
  1047. 1679 INPUT"HOW MANY DOLLARS DID IT TAKE";D:N=D/P
  1048. 1680 PRINT"MILES PER GALLON =";M/N
  1049. 1686 PRINT"  PRESS ANY KEY"
  1050. 1688 GETX$:IFX$=""THEN1688
  1051. 1689 GOTO1515
  1052. 1690 PRINT"[147]    MORTGAGE PAYMENTS[146]"
  1053. 1691 INPUT"TOTAL BALANCE OWED";B
  1054. 1692 INPUT"ENTER YEARLY INTEREST RATE (%)";I:I=I/12:I=I/100
  1055. 1693 INPUT"HOW MANY YEARS ON THE LOAN";N:N=N*12
  1056. 1694 P=B/((1-(1+I)^-N)/I)
  1057. 1695 PRINT"THE MONTHLY PAYMENT WILL BE";P
  1058. 1696 PRINT"   PRESS ANY KEY OR C TO CONTINUE"
  1059. 1697 GETX$:IFX$=""THEN1697
  1060. 1698 IFX$="C"THEN1690
  1061. 1699 GOTO1515
  1062. 1700 PRINT"[147]       ALGEBRA[146]"
  1063. 1701 PRINT" 1) INVESTMENTS"
  1064. 1702 PRINT" 2) PYTHAGOREAN THEOREM"
  1065. 1707 PRINT" 3) DISTANCE BETWEEN POINTS"
  1066. 1708 PRINT"   SELECT A NUMBER OR X TO EXIT"
  1067. 1709 GETX$:IF X$=""THEN1709
  1068. 1710 IF X$="1"GOTO1720
  1069. 1711 IF X$="2"GOTO1770
  1070. 1717 IF X$="3"GOTO1790
  1071. 1719 GOTO23
  1072. 1720 PRINT"[147]    INVESTMENTS[146]"
  1073. 1721 INPUT"HOW MUCH WILL YOU INVEST";N
  1074. 1722 INPUT"HOW MANY INVESTMENTS";M:T=0
  1075. 1723 FORX=1TOM
  1076. 1726 IFM=1THENP=1:GOTO1733
  1077. 1727 PRINT"ENTER PERCENTAGE IN INVESTMENT";X
  1078. 1730 INPUT"(ENTER PERCENTAGE OR 100)";P:P=P/100
  1079. 1733 INPUT"ENTER INTEREST RATE (%)";I:I=I/100
  1080. 1737 A=N*P*I:T=T+A
  1081. 1740 NEXT
  1082. 1741 PRINT"TOTAL INTEREST EARNED IS";T
  1083. 1742 PRINT"TOTAL PRINCIPLE PLUS INTEREST":PRINT"WILL BE $";N+T
  1084. 1744 PRINT"WANT TO FIGURE THE NEXT YEAR ALSO?"
  1085. 1747 PRINT"(FOR THIS PRINCIPLE ONLY)"
  1086. 1749 PRINT" PRESS 'Y' TO CONTINUE[146]"
  1087. 1750 GETX$:IF X$=""THEN1750
  1088. 1751 IFX$="Y"THENN=N+T:GOTO1722
  1089. 1755 IFX$="C"GOTO1720
  1090. 1757 GOTO1700
  1091. 1770 PRINT"[147]    PYTHAGOREAN THEOREM[146]"
  1092. 1771 PRINT"WHICH IS UNKNOWN?  ENTER (S) FOR SIDE":PRINT"OR (H) FOR HYPOTENEUS"
  1093. 1776 GETX$:IFX$=""THEN1776
  1094. 1780 IFX$="S"THENINPUT"SIDE";S:INPUT"HYPOTENEUS";H:N=SQR((H^2)-(S^2)):GOTO1787
  1095. 1782 IFX$="H"THENINPUT"SIDE";S:INPUT"SIDE";H:N=SQR((H^2)+(S^2)):GOTO1787
  1096. 1786 GOTO1770
  1097. 1787 PRINT"THE UNKNOWN SIDE =";N:PRINT"   PRESS ANY KEY"
  1098. 1788 GETX$:IFX$=""THEN1788
  1099. 1789 GOTO1700
  1100. 1790 PRINT"[147]    DISTANCES[146]"
  1101. 1791 PRINT"POINT 1":INPUT"X COORDINATE";X:INPUT"Y COORDINATE";Y
  1102. 1792 PRINT"POINT 2":INPUT"X COORDINATE";A:INPUT"Y COORDINATE";B
  1103. 1793 D=ABS(SQR(((Y-B)^2)+((X-A)^2)))
  1104. 1794 PRINT"DISTANCE =";D
  1105. 1795 PRINT"   PRESS ANY KEY":GOSUB9988
  1106. 1796 IFX$="C"THEN1790
  1107. 1797 GOTO1700
  1108. 1800 PRINT"[147]     BUSINESS & FINANCE[146]"
  1109. 1801 PRINT" 1) FIGURING POINTS"
  1110. 1802 PRINT" 2) EXCHANGING DOLLARS"
  1111. 1803 PRINT" 3) BUYING DOLLARS"
  1112. 1804 PRINT" 4) EARLY PAY-OFF OF A LOAN"
  1113. 1805 PRINT" 5) COMPOUNDED INTEREST"
  1114. 1806 PRINT" 6) TREASURY BILLS"
  1115. 1807 PRINT" 7) DEPRECIATION"
  1116. 1808 PRINT" 8) INTEREST PAID AND EARNED"
  1117. 1809 PRINT"   SELECT A NUMBER"
  1118. 1810 GETX$:IF X$=""THEN1810
  1119. 1811 IF X$="1"GOTO1820
  1120. 1812 IF X$="2"GOTO1850
  1121. 1813 IF X$="3"GOTO1870
  1122. 1814 IF X$="4"GOTO1890
  1123. 1815 IF X$="5"GOTO1909
  1124. 1816 IF X$="6"GOTO1929
  1125. 1817 IF X$="7"GOTO1940
  1126. 1818 IF X$="8"GOTO1957
  1127. 1819 GOTO23
  1128. 1820 PRINT"[147]    FIGURING POINTS[146]"
  1129. 1821 PRINT"REAL ESTATE SELLER PAYS POINTS":PRINT"(INTEREST) ON THE DIFFERENCE IN THE"
  1130. 1822 PRINT"RE-FINANCED INTEREST RATE.  GENERALLY":PRINT"THERE ARE 4 POINTS FOR EACH 1%."
  1131. 1823 PRINT"THEREFORE, EACH POINT REPRESENTS 1%":PRINT"OF THE SELLING PRICE LESS DOWN"
  1132. 1824 PRINT"PAYMENT."
  1133. 1825 INPUT"COST OF THE HOUSE ($)";C
  1134. 1830 INPUT"HOW MUCH DOWN PAYMENT ($)";D:C=C-D
  1135. 1833 INPUT"FHA/VA INTEREST RATE (%)";I
  1136. 1838 INPUT"CONVENTIONAL INTEREST RATE (%)";R
  1137. 1840 PRINT"NUMBER OF POINTS IS";(R-I)*4
  1138. 1844 PRINT"COST OF POINTS IS $";C*((R-I)/25)
  1139. 1845 PRINT"    PRESS ANY KEY"
  1140. 1846 GETX$:IFX$=""THEN1846
  1141. 1848 GOTO1800
  1142. 1850 PRINT"[147]    EXCHANGING DOLLARS[146]"
  1143. 1855 INPUT"HOW MANY DOLLARS PER UNIT";D
  1144. 1858 INPUT"HOW MANY DOLLARS TO EXCHANGE";I
  1145. 1860 PRINT"YOU WILL GET";I/D;"UNITS"
  1146. 1866 PRINT"    PRESS ANY KEY"
  1147. 1868 GETX$:IFX$=""THEN1868
  1148. 1869 GOTO1800
  1149. 1870 PRINT"[147]    BUYING DOLLARS[146]"
  1150. 1877 INPUT"HOW MUCH PER DOLLAR";D:D=1/D
  1151. 1878 INPUT"HOW MUCH TO EXCHANGE";I
  1152. 1880 PRINT"YOU WILL GET";D*I;"DOLLARS"
  1153. 1881 PRINT"    PRESS ANY KEY"
  1154. 1888 GETX$:IFX$=""THEN1888
  1155. 1889 GOTO1800
  1156. 1890 PRINT"[147]    EARLY PAY-OFF[146]"
  1157. 1891 INPUT"WHAT IS THE MONTHLY PAYMENT";M
  1158. 1893 INPUT"WHAT IS THE ANNUAL INTEREST RATE";I:I=I/12:I=I/100
  1159. 1896 INPUT"HOW MANY PAYMENTS LEFT";K
  1160. 1898 INPUT"TOTAL LENGTH OF THE LOAN";N
  1161. 1899 B=M*((1-((1+I)^(-K)))/I)
  1162. 1900 PRINT"PAY-OFF = $";B
  1163. 1901 PRINT"    PRESS ANY KEY"
  1164. 1903 GETX$:IFX$=""THEN1903
  1165. 1907 GOTO1800
  1166. 1909 PRINT"[147]    COMPOUNDED INTEREST[146]"
  1167. 1910 INPUT"REGULAR MONTHLY PAYMENT";P
  1168. 1911 INPUT"WHAT IS THE ANNUAL INTEREST RATE";I:I=I/12:I=I/100
  1169. 1917 INPUT"FOR HOW MANY MONTHS";N
  1170. 1919 B=P*((((1+I)^N)-1)/I)
  1171. 1920 PRINT"FINAL BALANCE = $";B
  1172. 1921 PRINT"    PRESS ANY KEY"
  1173. 1922 GETX$:IFX$=""THEN1922
  1174. 1923 GOTO1800
  1175. 1929 PRINT"[147]    TREASURY BILLS[146]"
  1176. 1930 INPUT"PRINCIPLE (BUYING PRICE)";P
  1177. 1931 INPUT"PRICE AT MATURITY";M
  1178. 1933 INPUT"NUMBER OF YEARS TO MATURITY";T:PRINT"INTEREST IS $";M-P
  1179. 1936 PRINT"INTEREST RATE IS ";((M-P)/(P*T))*100;"%"
  1180. 1937 PRINT"    PRESS ANY KEY"
  1181. 1938 GETX$:IFX$=""THEN1938
  1182. 1939 GOTO1800
  1183. 1940 PRINT"[147]    DEPRECIATION[146]"
  1184. 1941 INPUT"AMOUNT OF PRINCIPLE";P
  1185. 1942 INPUT"% OF DEPRECIATION PER YEAR";D:D=(100-D)/100
  1186. 1944 INPUT"NUMBER OF YEARS TO DEPRECIATE";T
  1187. 1947 FORN=1TOT:P=P*D
  1188. 1948 PRINT"FOR YEAR ";N;"VALUE IS $";P
  1189. 1949 NEXT
  1190. 1950 PRINT"    PRESS ANY KEY"
  1191. 1953 GETX$:IFX$=""THEN1953
  1192. 1955 GOTO1800
  1193. 1957 PRINT"[147]    INTEREST[146]"
  1194. 1958 PRINT"MANY CREDIT CARD COMPANIES OFFER"
  1195. 1959 PRINT"WHAT IS CALLED SECURED CREDIT CARDS"
  1196. 1960 PRINT"WHICH REQUIRE A BANK ACCOUNT WITH A"
  1197. 1961 PRINT"BALANCE WHICH DETERMINES THE CREDIT"
  1198. 1962 PRINT"LIMIT.  THIS SECTION OF THE PROGRAM"
  1199. 1963 PRINT"CALCULATES THE REAL COST OF USING ONE"
  1200. 1964 PRINT"OF THESE ACCOUNTS BY CALCULATING THE"
  1201. 1965 PRINT"DIFFERENCE IN INTEREST PAID AND"
  1202. 1966 PRINT"INTEREST EARNED."
  1203. 1967 INPUT"WHAT IS THE CREDIT CARD BALANCE";B
  1204. 1969 INPUT"WHAT IS THE ANNUAL CREDIT INTEREST";I:I=I/1200
  1205. 1970 INPUT"WHAT IS THE SAVINGS BALANCE";S
  1206. 1971 INPUT"WHAT IS THE SAVINGS INTEREST RATE";R:R=R/100
  1207. 1973 C=I*B:V=(S*(1+(R/365))^30)-S
  1208. 1974 IFC-V<1THENPRINT"MINIMUM FINANCE CHARGE":GOTO1976
  1209. 1975 PRINT"COST OF THE CREDIT CARD WILL BE $";C-V
  1210. 1976 PRINT"    PRESS ANY KEY"
  1211. 1977 GETX$:IFX$=""THEN1977
  1212. 1979 GOTO1800
  1213. 3000 PRINT"[147]       PHYSICS & CHEMISTRY[146]"
  1214. 3003 PRINT" 1) SPEED OF LIGHT"
  1215. 3004 PRINT" 2) FREE FALL"
  1216. 3005 PRINT" 3) ACCELERATION"
  1217. 3006 PRINT" 4) WORK - POWER"
  1218. 3007 PRINT" 5) CENTIPETAL FORCE"
  1219. 3008 PRINT" 6) ENERGY"
  1220. 3011 GETX$:IFX$=""THEN3011
  1221. 3012 IF X$="2"GOTO3030
  1222. 3013 IF X$="3"GOTO3040
  1223. 3014 IF X$="4"GOTO3060
  1224. 3015 IF X$="5"GOTO3080
  1225. 3016 IF X$="6"GOTO3090
  1226. 3017 IF X$="Q"GOTONEW
  1227. 3018 IF X$="X"GOTO23
  1228. 3019 IF X$="1"GOTO3021
  1229. 3020 GOTO23
  1230. 3021 PRINT"[147]ENTER A DISTANCE AND THE COMPUTER"
  1231. 3022 PRINT"WILL CALCULATE THE AMOUNT OF TIME "
  1232. 3023 PRINT"THAT IT WILL TAKE LIGHT TO TRAVEL"
  1233. 3024 PRINT"OVER THAT DISTANCE"
  1234. 3025 PRINT"":INPUT"ENTER THE DISTANCE IN METERS";D
  1235. 3027 PRINT"IT WILL TAKE LIGHT";D/(2.9979*10^8):PRINT"SECONDS":PRINT"PRESS ANY KEY"
  1236. 3028 GETX$:IFX$=""THEN3028
  1237. 3029 GOTO23
  1238. 3030 PRINT"[147]ENTER A DISTANCE AND THE COMPUTER"
  1239. 3031 PRINT"WILL CALCULATE THE AMOUNT OF TIME "
  1240. 3032 PRINT"IT TAKES TO FALL TO THE GROUND"
  1241. 3033 PRINT"ASSUMING NO INITIAL VELOCITY AND NO"
  1242. 3035 PRINT"WIND RESISTANCE."
  1243. 3036 PRINT"":INPUT"ENTER THE DISTANCE IN FEET";D:T=SQR((2*D)/32.2)
  1244. 3037 PRINT"THE TIME IS";T;"SEC.":PRINT"  PRESS ANY KEY"
  1245. 3038 GETX$:IFX$=""THEN3038
  1246. 3039 GOTO23
  1247. 3040 PRINT"[147]ENTER A DISTANCE AND A TIME AND"
  1248. 3043 PRINT"THE COMPUTER WILL CALCULATE THE AVERAGE"
  1249. 3044 PRINT"ACCELERATION ASSUMING STARTING FROM A"
  1250. 3046 PRINT"STANDSTILL (NO VELOCITY).":INPUT"ENTER DISTANCE IN FEET";D
  1251. 3050 INPUT"[145][145]ENTER TIME IN SECONDS";T
  1252. 3053 PRINT"THE AVERAGE VELOCITY IS";D/T:PRINT"FEET PER SECOND"
  1253. 3055 PRINT"THE ACCELERATION IS";(2*D)/(T^2):PRINT"FEET PER SECOND SQUARED"
  1254. 3057 PRINT"  PRESS ANY KEY[146]"
  1255. 3058 GETX$:IFX$=""THEN3058
  1256. 3059 GOTO23
  1257. 3060 PRINT"[147]ENTER A DISTANCE AND THE FORCE"
  1258. 3062 PRINT"AND THE COMPUTER WILL CALCULATE"
  1259. 3063 PRINT"THE AMOUNT OF WORK, ENTERING THE"
  1260. 3064 PRINT"TIME WILL ALSO ENABLE THE POWER TO BE"
  1261. 3065 PRINT"DETERMINED"
  1262. 3066 INPUT"ENTER FORCE IN NEWTONS";F
  1263. 3067 INPUT"ENTER DISTANCE IN METERS";D
  1264. 3068 INPUT"ENTER TIME IN SECONDS";T
  1265. 3069 PRINT"THE WORK IS";F*D;"JOULES"
  1266. 3073 PRINT"THE POWER IS";(F*D)/T;"WATTS"
  1267. 3077 PRINT"  PRESS ANY KEY[146]"
  1268. 3078 GETX$:IFX$=""THEN3078
  1269. 3079 GOTO23
  1270. 3080 PRINT"[147]ENTER A MASS, VELOCITY, AND"
  1271. 3081 PRINT"RADIUS OF THE CIRCLE AND THE "
  1272. 3082 PRINT"COMPUTER WILL CALCULATE THE AMOUNT"
  1273. 3083 PRINT"OF CENTRIPETAL FORCE EXERTED"
  1274. 3084 INPUT"ENTER MASS IN KILOGRAMS";M:INPUT"ENTER THE RADIUS IN METERS";R
  1275. 3085 INPUT"ENTER VELOCITY IN METERS PER SECOND";V
  1276. 3086 PRINT"THE CENTRIPETAL FORCE IS";(M*(V^2))/R:PRINT"NEWTONS"
  1277. 3087 PRINT"  PRESS ANY KEY[146]"
  1278. 3088 GETX$:IFX$=""THEN3088
  1279. 3089 GOTO23
  1280. 3090 PRINT"[147]ACCORDING TO EINSTEIN, THERE IS"
  1281. 3091 PRINT"ENERGY STORED IN MATTER.":INPUT"ENTER MASS IN KILOGRAMS";M
  1282. 3092 E=M*(2.9979*10^8)
  1283. 3093 PRINT"THE ENERGY IN JOULES IS:":PRINTE
  1284. 3096 PRINT"THE ENERGY IN ELECTRON VOLTS IS:":PRINTE/(1.6022*10^-19)
  1285. 3097 PRINT"  PRESS ANY KEY[146]"
  1286. 3098 GETX$:IFX$=""THEN3098
  1287. 3099 GOTO23
  1288. 8000 PRINT"[147]       PERCENTAGES[146]"
  1289. 8002 PRINT"PERCENTAGES CAN BE USED IN ONE OF"
  1290. 8004 PRINT"FOUR DIFFERENT WAYS."
  1291. 8008 PRINT"ADDING A PERCENTAGE[146]"
  1292. 8010 PRINT"    ENTER A NUMBER ADDING A PERCENTAGE"
  1293. 8012 PRINT"STRAIGHT PERCENTAGE[146]"
  1294. 8014 PRINT"    FIGURES A PERCENTAGE OF THE NUMBER"
  1295. 8018 PRINT"SUBTRACTING A PERCENTAGE[146]"
  1296. 8019 PRINT"    SUBTRACTS A PERCENTAGE OF A NUMBER"
  1297. 8020 PRINT"INVERTED PERCENTAGE[146]"
  1298. 8022 PRINT"    THE NUMBER IS WHAT PERCENTAGE OF"
  1299. 8024 PRINT"    THE ANSWER."
  1300. 8026 PRINT"    PRESS ANY KEY TO EXIT HELP[146]"
  1301. 8027 GETX$:IFX$=""THEN8027
  1302. 8028 GOTO310
  1303. 9988 PRINT"PRESS C TO CONTINUE OR X TO EXIT"
  1304. 9989 GETX$:IF X$=""THEN9989
  1305. 9991 IF X$="X"GOTO7
  1306. 9996 IF X$="Q"THEN NEW
  1307. 9999 RETURN
  1308.